home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_2427.txt < prev    next >
Text File  |  1988-09-28  |  12KB  |  537 lines
  1. -- card: 2427 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: File Section
  6. ----- HyperTalk script -----
  7. on idle
  8.   global port
  9.   put the time into field 4
  10.   if SPortHasChar(port) then
  11.     put empty into reslts
  12.     repeat 3
  13.       put recvUpTo(port,return,2,false,false) into newIn
  14.       put newIn after reslts
  15.     end repeat
  16.   end if
  17. end idle
  18.  
  19. on opencard
  20.   global lastday
  21.   put lastday into field "laston"
  22.   put the abbrev date into field "now"
  23. end opencard
  24.  
  25. on closecard
  26.   show card button "Main Menu"
  27. end closecard
  28.  
  29.  
  30. -- part 1 (button)
  31. -- low flags: 00
  32. -- high flags: 8004
  33. -- rect: left=375 top=305 right=327 bottom=475
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 1
  37. -- font id: 0
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: Log off
  42. ----- HyperTalk script -----
  43. on mouseUp
  44.   global port
  45.   sendSPort port,false,"g"&return
  46.   put empty into card field "where"
  47.   answer "What'll it be?" with "Yes, bye" or "NO WAIT!!" or "Survey"
  48.   if it="Yes, bye" then
  49.     sendsPort port,false,"y"&return
  50.     put empty into card field 1
  51.     go card 1
  52.   else if it="NO WAIT!!" then sendSPort port,false,"n"&return
  53.   else sendSPort port,false,"a"&return
  54.  
  55. end mouseUp
  56.  
  57.  
  58.  
  59.  
  60. -- part 2 (button)
  61. -- low flags: 00
  62. -- high flags: 8004
  63. -- rect: left=375 top=281 right=303 bottom=475
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Main Menu
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   global port
  75.   sendSPort port,false,"e"&return
  76.   put empty into card field "where"
  77.   go card "Main Menu"
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 3 (button)
  83. -- low flags: 00
  84. -- high flags: 8004
  85. -- rect: left=198 top=121 right=143 bottom=298
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: New 
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   global port
  97.   sendSPort port,false,"n"&return
  98.   push card
  99.   go card "files"
  100.  
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 4 (button)
  106. -- low flags: 00
  107. -- high flags: 8004
  108. -- rect: left=198 top=145 right=167 bottom=298
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Forward
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   global port
  120.   sendSPort port,false,"f"&return
  121.   push card
  122.   go card "files"
  123.  
  124. end mouseUp
  125.  
  126.  
  127.  
  128. -- part 5 (button)
  129. -- low flags: 00
  130. -- high flags: 8004
  131. -- rect: left=198 top=169 right=191 bottom=298
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: Reverse
  140. ----- HyperTalk script -----
  141. on mouseUp
  142.   global port
  143.   sendSPort port,false,"r"&return
  144.   push card
  145.   go card "files"
  146.  
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 6 (button)
  152. -- low flags: 00
  153. -- high flags: 8004
  154. -- rect: left=198 top=193 right=215 bottom=298
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Search
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   global port
  166.   ask "Search for what string?"
  167.   sendSPort port,false,"s"&return
  168.   ask "Search for what string?"
  169.   if it<> empty then
  170.     sendSPort port,false,it&return
  171.     push card
  172.     go card "files"
  173.   end if
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 7 (button)
  179. -- low flags: 00
  180. -- high flags: 8004
  181. -- rect: left=198 top=217 right=239 bottom=298
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: Info
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   global port
  193.   sendSPort port,false,"i"&return
  194.   ask "Info on what file?"
  195.   if it<> empty then
  196.     sendSPort port,false,it&return
  197.     push card
  198.     go card "files"
  199.   end if
  200. end mouseUp
  201.  
  202.  
  203.  
  204. -- part 8 (button)
  205. -- low flags: 00
  206. -- high flags: 0000
  207. -- rect: left=54 top=31 right=68 bottom=90
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 21060 / 21060
  210. -- text alignment: 1
  211. -- font id: 0
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: New Button
  216. ----- HyperTalk script -----
  217. on mouseUp
  218.   if card field "where" contains "clip" then
  219.     show card field "clipartinfo"
  220.   else if card field "where" contains "news" then
  221.     show card field "newsletterinfo"
  222.   else if card field "where" contains "Desk" then
  223.     show card field "dainfo"
  224.   else if card field "where" contains "games" then
  225.     show card field "gamesinfo"
  226.   else if card field "where" contains "hypercard" then
  227.     show card field "hypercardinfo"
  228.   else if card field "where" contains "prog" then
  229.     show card field "programminginfo"
  230.   else if card field "where" contains "system" then
  231.     show card field "systeminfo"
  232.   else if card field "where" contains "templates" then
  233.     show card field "templatesinfo"
  234.   else if card field "where" contains "fonts" then
  235.     show card field "fontsinfo"
  236.   else if card field "where" contains "telecom" then
  237.     show card field "telecominfo"
  238.   else if card field "where" contains "utilities" then
  239.     show card field "utilitiesinfo"
  240.   else if card field "where" contains "music" then
  241.     show card field "musicinfo"
  242.   end if
  243. end mouseUp
  244.  
  245.  
  246.  
  247. -- part 9 (button)
  248. -- low flags: 00
  249. -- high flags: 8004
  250. -- rect: left=375 top=257 right=279 bottom=475
  251. -- title width / last selected line: 0
  252. -- icon id / first selected line: 0 / 0
  253. -- text alignment: 1
  254. -- font id: 0
  255. -- text size: 12
  256. -- style flags: 0
  257. -- line height: 16
  258. -- part name: File Menu
  259. ----- HyperTalk script -----
  260. on mouseUp
  261.   global port
  262.   sendSPort port,false,"b"&return
  263.   put empty into card field "where"
  264.   go card "File Menu"
  265. end mouseUp
  266.  
  267.  
  268.  
  269. -- part 10 (field)
  270. -- low flags: 00
  271. -- high flags: 0004
  272. -- rect: left=83 top=80 right=105 bottom=410
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 3
  277. -- text size: 18
  278. -- style flags: 256
  279. -- line height: 24
  280. -- part name: where
  281.  
  282.  
  283. -- part 13 (field)
  284. -- low flags: 81
  285. -- high flags: 0004
  286. -- rect: left=119 top=105 right=140 bottom=376
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 1
  290. -- font id: 3
  291. -- text size: 9
  292. -- style flags: 0
  293. -- line height: 12
  294. -- part name: clipartinfo
  295. ----- HyperTalk script -----
  296. on mouseup
  297.   hide card field id 13
  298. end mouseup
  299.  
  300.  
  301. -- part 14 (field)
  302. -- low flags: 81
  303. -- high flags: 0004
  304. -- rect: left=127 top=105 right=140 bottom=365
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 3
  309. -- text size: 9
  310. -- style flags: 0
  311. -- line height: 12
  312. -- part name: newsletterinfo
  313. ----- HyperTalk script -----
  314. on mouseup
  315.   hide card field id 14
  316. end mouseup
  317.  
  318.  
  319. -- part 16 (field)
  320. -- low flags: 81
  321. -- high flags: 0004
  322. -- rect: left=127 top=105 right=144 bottom=366
  323. -- title width / last selected line: 0
  324. -- icon id / first selected line: 0 / 0
  325. -- text alignment: 1
  326. -- font id: 3
  327. -- text size: 9
  328. -- style flags: 0
  329. -- line height: 12
  330. -- part name: gamesinfo
  331. ----- HyperTalk script -----
  332. on mouseup
  333.   hide card field id 16
  334. end mouseup
  335.  
  336.  
  337. -- part 17 (field)
  338. -- low flags: 81
  339. -- high flags: 0004
  340. -- rect: left=127 top=105 right=144 bottom=367
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 0 / 0
  343. -- text alignment: 1
  344. -- font id: 3
  345. -- text size: 9
  346. -- style flags: 0
  347. -- line height: 12
  348. -- part name: hypercardinfo
  349. ----- HyperTalk script -----
  350. on mouseup
  351.   hide card field id 17
  352. end mouseup
  353.  
  354.  
  355. -- part 18 (field)
  356. -- low flags: 81
  357. -- high flags: 0004
  358. -- rect: left=127 top=105 right=144 bottom=371
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 0 / 0
  361. -- text alignment: 1
  362. -- font id: 3
  363. -- text size: 9
  364. -- style flags: 0
  365. -- line height: 12
  366. -- part name: programminginfo
  367. ----- HyperTalk script -----
  368. on mouseup
  369.   hide card field id 18
  370. end mouseup
  371.  
  372.  
  373. -- part 19 (field)
  374. -- low flags: 81
  375. -- high flags: 0004
  376. -- rect: left=127 top=105 right=140 bottom=365
  377. -- title width / last selected line: 0
  378. -- icon id / first selected line: 0 / 0
  379. -- text alignment: 1
  380. -- font id: 3
  381. -- text size: 9
  382. -- style flags: 0
  383. -- line height: 12
  384. -- part name: systeminfo
  385. ----- HyperTalk script -----
  386. on mouseup
  387.   hide card field id 19
  388. end mouseup
  389.  
  390.  
  391. -- part 20 (field)
  392. -- low flags: 81
  393. -- high flags: 0004
  394. -- rect: left=127 top=105 right=140 bottom=365
  395. -- title width / last selected line: 0
  396. -- icon id / first selected line: 0 / 0
  397. -- text alignment: 1
  398. -- font id: 3
  399. -- text size: 9
  400. -- style flags: 0
  401. -- line height: 12
  402. -- part name: templatesinfo
  403. ----- HyperTalk script -----
  404. on mouseup
  405.   hide card field id 20
  406. end mouseup
  407.  
  408.  
  409. -- part 21 (field)
  410. -- low flags: 81
  411. -- high flags: 0004
  412. -- rect: left=127 top=105 right=140 bottom=365
  413. -- title width / last selected line: 0
  414. -- icon id / first selected line: 0 / 0
  415. -- text alignment: 1
  416. -- font id: 3
  417. -- text size: 9
  418. -- style flags: 0
  419. -- line height: 12
  420. -- part name: fontsinfo
  421. ----- HyperTalk script -----
  422. on mouseup
  423.   hide card field id 21
  424. end mouseup
  425.  
  426.  
  427. -- part 22 (field)
  428. -- low flags: 81
  429. -- high flags: 0004
  430. -- rect: left=127 top=105 right=144 bottom=367
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 0 / 0
  433. -- text alignment: 1
  434. -- font id: 3
  435. -- text size: 9
  436. -- style flags: 0
  437. -- line height: 12
  438. -- part name: telecominfo
  439. ----- HyperTalk script -----
  440. on mouseup
  441.   hide card field id 22
  442. end mouseup
  443.  
  444.  
  445. -- part 23 (field)
  446. -- low flags: 81
  447. -- high flags: 0004
  448. -- rect: left=127 top=105 right=140 bottom=365
  449. -- title width / last selected line: 0
  450. -- icon id / first selected line: 0 / 0
  451. -- text alignment: 1
  452. -- font id: 3
  453. -- text size: 9
  454. -- style flags: 0
  455. -- line height: 12
  456. -- part name: dainfo
  457. ----- HyperTalk script -----
  458. on mouseup
  459.   hide card field id 23
  460. end mouseup
  461.  
  462.  
  463. -- part 24 (field)
  464. -- low flags: 81
  465. -- high flags: 0004
  466. -- rect: left=127 top=105 right=140 bottom=365
  467. -- title width / last selected line: 0
  468. -- icon id / first selected line: 0 / 0
  469. -- text alignment: 1
  470. -- font id: 3
  471. -- text size: 9
  472. -- style flags: 0
  473. -- line height: 12
  474. -- part name: utilitiesinfo
  475. ----- HyperTalk script -----
  476. on mouseup
  477.   hide card field id 24
  478. end mouseup
  479.  
  480.  
  481. -- part contents for background part 4
  482. ----- text -----
  483. Thu, Sep 22, 1988
  484.  
  485. -- part contents for background part 5
  486. ----- text -----
  487. 9:01 PM
  488.  
  489. -- part contents for background part 3
  490. ----- text -----
  491. Thu, Sep 22, 1988, 9:08 AM
  492.  
  493. -- part contents for card part 13
  494. ----- text -----
  495. This is where we have files of clip art and other art related things.
  496.  
  497. -- part contents for card part 14
  498. ----- text -----
  499. In this area we have newsletters from other clubs and on-line services.
  500.  
  501.  
  502. -- part contents for card part 16
  503. ----- text -----
  504. Here's where you can find all kinds of wonderfully trivial ways to kill time.  One of my favourite areas.
  505.  
  506. -- part contents for card part 17
  507. ----- text -----
  508. This is the area to pick up Hypercard stacks.  Stacks can be about anything, from history of the universe to tcs front ends!
  509.  
  510.  
  511. -- part contents for card part 18
  512. ----- text -----
  513. All you hackers: this is your area!  Here are samples of code and hints.  Not to mention Apple's tech notes
  514.  
  515. -- part contents for card part 19
  516. ----- text -----
  517. Here are copies of the latest system and finder and other things that you put in your system file.
  518.  
  519. -- part contents for card part 20
  520. ----- text -----
  521. Templates for Excel and Works, as well as other programs can be found in this area.
  522.  
  523. -- part contents for card part 21
  524. ----- text -----
  525. All kinds of fonts for the Imagewriter and some for the LaserWriter are in here.
  526.  
  527. -- part contents for card part 22
  528. ----- text -----
  529. Files and programs that do telecommunications, or are aids to telecom, are in here (things like this stack)
  530.  
  531. -- part contents for card part 23
  532. ----- text -----
  533. DA's. those helpful little guys, are all in here.  they can do things from games to word processing.
  534.  
  535. -- part contents for card part 24
  536. ----- text -----
  537. Utilites, things that fix things or do diagnostics, can be found within.